1 REM  DRAGON.START
5 IFX=0THENX=1:LOAD"UNPACKER",8,1
6 IFX=1THENX=2:LOAD"DRAGON.SHP",8,1
10 POKE249,224:POKE250,204:                 REM SCREEN/COLOR
20 POKE251,0:POKE252,64:                    REM SHP BUFFER
30 POKE253,0:POKE254,0:                     REM   X-POS,Y-POS
50 SYS51456:SYS51459:REM  UNPACK AND SHOW NORMAL SHP
55 PG$="DRAGON DUNGEON"
60 PRINT"[147]LOAD PG$,8":PRINT"SYS51459:RUN"
70 POKE631,13:POKE632,13:POKE198,2:END